home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / windows / ldialogs.zip / UNIT2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-25  |  1KB  |  56 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, LDialogs, StdCtrls {$IFDEF NEVER} , Dialogs, BlahBlah {$ENDIF} ;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     procedure Button1Click(Sender: TObject);
  14.     procedure Button2Click(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.     procedure WndProc(var Message: TMessage); override;
  18.     procedure CreateParams(var Params: TCreateParams); override;
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. implementation
  24.  
  25. {$R *.DFM}
  26.  
  27. procedure TForm2.Button1Click(Sender: TObject);
  28. begin
  29.   Application.HelpContext(3);
  30. end;
  31.  
  32. procedure TForm2.Button2Click(Sender: TObject);
  33. var
  34.   SaveDialog: TSaveDialog;
  35. begin
  36.   SaveDialog := TSaveDialog.Create(nil);
  37.   SaveDialog.HelpContext := 6;
  38.   saveDialog.Options := [ofShowHelp];
  39.   saveDialog.Execute;
  40.   SaveDialog.Free;
  41. end;
  42.  
  43. procedure TForm2.CreateParams(var Params: TCreateParams);
  44. begin
  45.   inherited CreateParams(Params);
  46.   Params.WndParent := GetWindowOnTop(hInstance);
  47. end;
  48.  
  49. procedure TForm2.WndProc(var Message: TMessage);
  50. begin
  51.   CheckHelp(Message);
  52.   inherited WndProc(Message);
  53. end;
  54.  
  55. end.
  56.